home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD012a.dsk / MONSTERS.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  54 lines
  1. 100  TEXT : HOME : CLEAR 
  2. 110  REM   PROGRAM LENGTH=1300
  3. 120  REM <CTRL-M><CTRL-M>==================<CTRL-M>PAUL RAYMER<CTRL-M>BOX 42831<CTRL-M>LAS VEGAS NV 89116<CTRL-M>==================<CTRL-J>
  4. 130  REM 
  5. 140  REM  MONSTERS
  6. 150  REM  OF MYTHOLOGY
  7. 160  REM 
  8. 170  REM  (C)1982 PEC
  9. 180  REM 
  10. 190  FOR S = 1 TO 39:S$ = S$ + CHR$(32): NEXT S
  11. 200 R =  INT(5 * RND(1)) +1
  12. 210  GOSUB 570
  13. 220 A =  VAL(A$)
  14. 230  FOR X = 5 TO 10: VTAB X: HTAB 15: PRINT  RIGHT$(A$,6): NEXT X
  15. 240 R =  INT(5 * RND(1)) +1
  16. 250  GOSUB 570
  17. 260 B =  VAL(B$)
  18. 270  FOR X = 11 TO 15: VTAB X: HTAB 15: PRINT  RIGHT$(B$,6): NEXT X
  19. 280 C$ = "NOT A RECOGNIZED MYTHOLOGICAL FIGURE"
  20. 290  ON A GOTO 300,340,390,420,460
  21. 300  IF B = 1  THEN C$ = "TRITON": GOTO 530
  22. 310  IF B = 3  THEN C$ = S$: GOTO 520
  23. 320  IF B = 4  THEN C$ = S$: GOTO 520
  24. 330  IF B = 5  THEN C$ = "CENTAUR": GOTO 530
  25. 340  IF B = 2  THEN C$ = "SIREN": GOTO 530
  26. 350  IF B = 1  THEN C$ = "MERMAID": GOTO 530
  27. 360  IF B = 3  THEN C$ = "???????????????????????????????????????": GOTO 520
  28. 370  IF B = 4  THEN C$ = "================?=====================": GOTO 520
  29. 380  GOTO 520
  30. 390  IF B = 3  THEN C$ = "SATYR": GOTO 530
  31. 400  IF B = 4  THEN C$ = "SATYR": GOTO 530
  32. 410  GOTO 520
  33. 420  IF B = 4  THEN C$ = "SILENI": GOTO 530
  34. 430  IF B = 3  THEN C$ = "SILENI": GOTO 530
  35. 440  IF B = 5  THEN C$ = S$: GOTO 520
  36. 450  GOTO 520
  37. 460  IF B = 5  THEN C$ = "CENTAUR": GOTO 530
  38. 470  IF B = 1  THEN C$ = "TRITON": GOTO 530
  39. 480  IF B = 3  THEN C$ = S$: GOTO 520
  40. 490  IF B = 4  THEN C$ = S$: GOTO 520
  41. 500  GOTO 520
  42. 510  GOTO 530
  43. 520  VTAB 17: HTAB 2: PRINT C$: FOR Z = 1 TO 2000: NEXT Z: HOME : GOTO 200
  44. 530  VTAB 17: HTAB 16: PRINT C$
  45. 540  VTAB 22: HTAB 1: PRINT "TRY ANOTHER MYTHOLOGICAL MONSTER (Y/N) ";: GET AN$
  46. 550  IF AN$ = "Y"  THEN  HOME : GOTO 200
  47. 560  HOME : PRINT  CHR$(13); CHR$(4);"RUN MYTHMENU"
  48. 570  ON R GOSUB 1000,2000,3000,4000,5000
  49. 580  RETURN 
  50. 1000 A$ = "1  MAN ":B$ = "1  FISH": RETURN 
  51. 2000 A$ = "2 WOMAN":B$ = "2  BIRD": RETURN 
  52. 3000 A$ = "3  GOAT":B$ = "3  MAN ": RETURN 
  53. 4000 A$ = "4 HORSE":B$ = "4  MAN ": RETURN 
  54. 5000 A$ = "5  MAN ":B$ = "5 HORSE": RETURN